function [insured_dep, uninsured_dep] = fn_insured_deposits(delta,R1,dist_d,d_min,d_max)

D0 = dist_d.mean;
f  = @(x) min(x*R1,delta).*pdf(dist_d,x);

insured_dep   = integral(f,d_min,d_max)/(D0*R1);
uninsured_dep = 1 - insured_dep;

end